mmload "se_maoudamashii_onepoint30.wav",1,0
title "Timmer"
	screen 0,430,370
	cls 1
	font "",20
	objmode 2
	f = 0
	t0 = 0	// ҂(b)
	state="stop"  // 
	pos 0,0
	objsize 70,70
	pos 0,0
	mes "҂ԓ"
	font "",30:input t0_b,140,30
	ID4t0_b=stat:font "",20
	objsize 140,50
	font "",30:button "PUSH",*l_tmp_push_A
	font "",20
	var4pushed_time_sec=0
	var4pushed_time_min=0
	var4pushed_time_hour=0
	tmp_pushed_time=""+strf("%d",var4pushed_time_sec)

#ifdef _debug
	mes "PUSHED TIME"
	font "",30:input tmp_pushed_time,140,30
	ID4tmp_pushed_time=stat:font "",20
#endif
	pos 150,0
	objsize 170,50
;	font "",30:button "push B", *start_b:font "",20
	hoge_b = 0
	mes "҂"
	font "",30:input hoge_b,170,30
	ID4hoge_b=stat:font "",20
	mes ""
	bar_b="stop"
	font "",30:input bar_b,170,35
	ID4bar_b=stat:font "",20
	font "",30:button "start",*l_restart_b:font "",20
	font "",30:button "stop",*l_stop_b:font "",20
	objsize 70,70
	sel_bt_x=0
	sel_bt_y=220
	pos sel_bt_x,     sel_bt_y
	font "",30:
	button "P",*l_sel_num_1
	pos sel_bt_x+70,  sel_bt_y
	button "Q",*l_sel_num_2
	pos sel_bt_x+140, sel_bt_y
	button "R",*l_sel_num_3
	pos sel_bt_x+210, sel_bt_y
	button "S",*l_sel_num_4
	pos sel_bt_x+280, sel_bt_y
	button "T",*l_sel_num_5
	pos sel_bt_x,     sel_bt_y+70
	button "U",*l_sel_num_6
	pos sel_bt_x+70,  sel_bt_y+70
	button "V",*l_sel_num_7
	pos sel_bt_x+140, sel_bt_y+70
	button "W",*l_sel_num_8
	pos sel_bt_x+210, sel_bt_y+70
	button "X",*l_sel_num_9
	pos sel_bt_x+280, sel_bt_y+70
	button "O",*l_sel_num_0
	pos sel_bt_x+350, sel_bt_y+70
	button "b",*l_sel_clear

	stop

*start_b
	if bar!="stop":stop
	if bar_b=="select":stop
	if bar_b=="input":stop
;	if bar_b=="start":stop
;	if bar_b=="restart":stop
	flag=0
;	if (bar_b=="stop"):flag=1
;	if (bar_b=="select"):flag=1
;	if (bar_b=="end"):flag=1
;	if (state=="end stop"):flag=1
;	if (state=="stop"):goto *l_restart_b
;	if (flag!=1):goto *l_restart_b
;	state="start"
;	flag_byou_b_end=0
	objprm ID4bar_b,"wait"
	f_b = 1
	wait_hour=var4pushed_time_hour
	wait_min =var4pushed_time_min
	wait_sec =var4pushed_time_sec
	
	tmp_wait_time=""+strf("%d",wait_sec)
	hoge_b=tmp_wait_time
	objprm ID4hoge_b,tmp_wait_time
	stop
;	if t0_b!=0: t1_b = t0_b*10
;	if t0_b!=0:	t0_b_bu=t0_b
;	if t0_b2!=0:	t0_b2_bu=t0_b2
;	if t0_b3!=0:	t0_b3_bu=t0_b3
;	t1_b_bu=t1_b
;	piyo_tmp_b=0
				tmp_time=t0_b*10+t0_b2*600+t0_b3*36000
				objprm ID4hoge_b,strf("%d",(tmp_time-piyo_tmp_b)/10)
	while 1
*l4restart_b
	if bar_b=="select":stop
	if bar_b=="input":stop
		await 100
		piyo_tmp_b++
		
				tmp_time=wait_sec*10+wait_min*600+wait_hour*36000
				objprm ID4hoge_b,strf("%d",(tmp_time-piyo_tmp_b)/10)
		
		logmes ""+tmp_time
		logmes ""+piyo_tmp_b
		
		if (tmp_time-piyo_tmp_b)<=0 : _break
		
	wend
	if bar_b=="end stop":stop
	if bar_b=="end":stop
	flag_byou_b_end=1
	objprm ID4bar_b,"end"
	state="end"
	while 1
	mmplay 1
	await 3000
	wend
	f_b = 0

	stop
*l_stop_b
	mmstop
	if bar_b=="select":stop
	if bar_b=="input":stop
	f_b = 0
;	if flag_byou_b_end==0{
;		tmp_time=t0_b*10+t0_b2*600+t0_b3*36000
;		t0_b3=tmp_time/36000
;		t0_b2=((tmp_tme/600)\600)/10
;		t0_b=(tmp_time\600)/10
;	}
	if bar_b=="end"{ bar_b="end stop":objprm id4bar_b,bar_b}
	if bar_b=="end stop":stop
	bar_b="stop"
	objprm id4bar_b,bar_b
	state="stop"
	if state=="end":state="end_stop"
	stop
*l_restart_b
	if bar_b=="select":stop
	if bar_b=="input":stop
	tmp_time=wait_sec*10+wait_min*600+wait_hour*36000
	if tmp_time==0:stop
	if bar_b=="end"{ bar_b="end stop":objprm id4bar_b,bar_b}
	if bar_b=="end stop":stop
	state="restart"
;	if bar_b=="start":stop
;	if bar_b=="restart":stop
	if bar!="stop":stop
	bar_b="start"
	objprm ID4bar_b,bar_b
	goto *l4restart_b
*l_tmp_A
	state="select"
	bar_b="select"
	objprm ID4bar_b,bar_b
	objprm ID4tmp_bt_A,""
	objprm ID4tmp_bt_B,""
	objprm ID4tmp_bt_C,""
	objprm ID4tmp_bt_D,""
	objprm ID4tmp_bt_A,""
	sel_bt="A"
	stop
*l_tmp_B
	state="select"
	bar_b="select"
	objprm ID4bar_b,bar_b
	objprm ID4tmp_bt_A,""
	objprm ID4tmp_bt_B,""
	objprm ID4tmp_bt_C,""
	objprm ID4tmp_bt_D,""
	objprm ID4tmp_bt_B,""
	sel_bt="B"
	stop
*l_tmp_C
	state="select"
	bar_b="select"
	objprm ID4bar_b,bar_b
	objprm ID4tmp_bt_A,""
	objprm ID4tmp_bt_B,""
	objprm ID4tmp_bt_C,""
	objprm ID4tmp_bt_D,""
	objprm ID4tmp_bt_C,""
	sel_bt="C"
	stop
*l_tmp_D
	state="select"
	bar_b="select"
	objprm ID4bar_b,bar_b
	objprm ID4tmp_bt_A,""
	objprm ID4tmp_bt_B,""
	objprm ID4tmp_bt_C,""
	objprm ID4tmp_bt_D,""
	objprm ID4tmp_bt_D,""
	sel_bt="D"
	stop
	
;	mes "҂(b)"
;	input hoge,100,20
;	ID4hoge=stat
;	mes "҂ԓ(b)"
;	input t0,100,20
;	ID4t0=stat
*l_sel_num_1
	sel_num=1
	goto *l_sel_num_hoge
*l_sel_num_2
	sel_num=2
	goto *l_sel_num_hoge
*l_sel_num_3
	sel_num=3
	goto *l_sel_num_hoge
*l_sel_num_4
	sel_num=4
	goto *l_sel_num_hoge
*l_sel_num_5
	sel_num=5
	goto *l_sel_num_hoge
*l_sel_num_6
	sel_num=6
	goto *l_sel_num_hoge
*l_sel_num_7
	sel_num=7
	goto *l_sel_num_hoge
*l_sel_num_8
	sel_num=8
	goto *l_sel_num_hoge
*l_sel_num_9
	sel_num=9
	goto *l_sel_num_hoge
*l_sel_num_0
	sel_num=0
	goto *l_sel_num_hoge
*l_sel_num_hoge
	bar_b="input"
	objprm ID4bar_b,bar_b
	state="select"

		t0_b=t0_b*10+sel_num
		objprm ID4t0_b,t0_b
;		objprm ID4hoge_b,str(t0_b3)+" : "+strf("%02d",t0_b2)+" : "+strf("%02d",t0_b)

	stop
*l_sel_clear
	bar_b="input"
	objprm ID4bar_b,bar_b
	state="select"
	sel_num=-1
	if sel_bt=="A"{
		t0=0
		t0_bu=0
		t1=0
		t1_bu=0
		piyo_tmp=0
		objprm ID4t0,t0
;		hoge=t0
;		objprm ID4hoge,t0
		stop
	}
	if sel_bt=="B"{
		t0_b=0
		t0_b_bu=0
		t0_b=0
		t0_b2_bu=0
		t0_b2=0
		t0_b3_bu=0
		t0_b3=0
		t1_b_bu=0
		t1_b=0
		piyo_tmp_b=0
		tmp_time=0
		objprm ID4t0_b,t0_b
		objprm ID4t0_b2,t0_b2
		objprm ID4t0_b3,t0_b3
;		hoge=t0
;		objprm ID4hoge_b,0
		stop
	}
	if sel_bt=="C"{
		t0_b=0
		t0_b_bu=0
		t0_b=0
		t0_b2_bu=0
		t0_b2=0
		t0_b3_bu=0
		t0_b3=0
		t1_b_bu=0
		t1_b=0
		piyo_tmp_b=0
		tmp_time=0
		objprm ID4t0_b,t0_b
		objprm ID4t0_b2,t0_b2
		objprm ID4t0_b3,t0_b3
;		hoge=t0
;		objprm ID4hoge_b,0
		stop
	}
	if sel_bt=="D"{
		t0_b=0
		t0_b_bu=0
		t0_b=0
		t0_b2_bu=0
		t0_b2=0
		t0_b3_bu=0
		t0_b3=0
		t1_b_bu=0
		t1_b=0
		piyo_tmp_b=0
		tmp_time=0
		objprm ID4t0_b,t0_b
		objprm ID4t0_b2,t0_b2
		objprm ID4t0_b3,t0_b3
;		hoge=t0
;		objprm ID4hoge_b,0
		stop
	}
	stop
;	sel_bt="A"
*l_tmp_push_A
	var4pushed_time_sec=t0_b
	var4pushed_time_min=t0_b2
	var4pushed_time_hour=t0_b3
	tmp_pushed_time=""+strf("%d",var4pushed_time_sec)
	wait_hour=var4pushed_time_hour
	wait_min =var4pushed_time_min
	wait_sec =var4pushed_time_sec
#ifdef _debug
	objprm ID4tmp_pushed_time,tmp_pushed_time
#endif
	piyo_tmp_b=0
	tmp_time=wait_sec*10+wait_min*600+wait_hour*36000
	objprm ID4hoge_b,strf("%d",(tmp_time-piyo_tmp_b)/10)
	bar_b="wait"
	objprm ID4bar_b,bar_b
	goto *start_b
*l_exec_A
	exec "Ys_many_Timmer.exe"
	stop